﻿Public Class Caballeria : Inherits UnidadBase


    Protected Const FUERZA_CAB = FUERZA_BASE + 2
    Protected Const ATAQUE_CAB = ATAQUE_BASE
    Protected Const VELOCIDAD_CAB = VELOCIDAD_BASE + 1
    Protected Const VIDA_CAB = VIDA_BASE
    Protected Const COSTE_CAB = COSTE_BASE + 2
    Protected Const DEFENSA_CAB = DEFENSA_BASE + 1
    Protected Const DISCIPLINA_CAB = DISCIPLINA_BASE + 1
    Protected Const TAMAÑO_CAB = TAMAÑO_BASE + 1

    Public Sub New()
        Me.Fuerza = FUERZA_CAB
        Me.Ataque = ATAQUE_CAB
        Me.Velocidad = VELOCIDAD_CAB
        Me.Vida = VIDA_CAB
        Me.Defensa = DEFENSA_CAB
        Me.Coste = COSTE_CAB
        Me.Tamaño = TAMAÑO_CAB
        Me.Disciplina = DISCIPLINA_BASE
    End Sub

End Class
